home *** CD-ROM | disk | FTP | other *** search
/ Play Windows 1995 October / CD [ASOWIN08_].bin / data / shared.dir / 00099_TStarRandomV.ls < prev    next >
Encoding:
Text File  |  1995-08-15  |  534 b   |  25 lines
  1. property ancestor, fMoveUnit
  2.  
  3. on birth me, vSprNum, vID, voffset
  4.   set ancestor to birth(script 96, vSprNum, vID, voffset)
  5.   return me
  6. end
  7.  
  8. on mInitStartLoc me
  9.   set aNewLocH to random(mGetLocLimitRight(me) - mGetLocLimitLeft(me)) + mGetLocLimitLeft(me)
  10.   set aNewLocV to mGetLocLimitTop(me)
  11.   mOnStageAt(me, aNewLocH, aNewLocV)
  12.   set aDepth to random(4)
  13.   mStAnimGrp(me, aDepth)
  14.   mUpdateSpr(me)
  15.   set fMoveUnit to 4 - aDepth + 4
  16. end
  17.  
  18. on mGetNewMoveWait me
  19.   return 0
  20. end
  21.  
  22. on mSetNewLoc me
  23.   mStLocV(me, mGtLocV(me) + fMoveUnit)
  24. end
  25.